UCl99l-.il 




Tasmania Department Of Resources and Energy 


Division of Mines and Mineral Resources — Report 1991/11 

Control of the Teac tape replay unit (Revision 1) 

byR.J.Sedgman 


Abstract 

A Teac tape replay unit was installed to transfer SIE down-hole logger data from cassette tape to a standard 9-track computer 
tape for archive and data manipulation. A microcomputer was employed to allow more reliable control and less overhead 
for the minicomputer. 

INTRODUCTION 

To allow data from the SIE down-hole logger to be archived and distributed in a standard format the logger tapes must be 
transcribed onto standard 9-track computer tape. The method adopted to transfer data recorded on the SEE cassette tapes 
to a minicomputer was via the TEAC MT-2 tape transport system. Direct connection and control was not possible, due to 
the nature of the Teac tape drive and the minicomputer, so the control and transfer of data is handled via a microcomputer. 


CHAPTER 1 

Overview of the Teac tape replay system 


The TEAC MT-2 cassette magnetic tape unit is designed to replay cassette tapes which comply with ISO, JIS, ECMA and 
ANSI standards. It is designed to allow interchangeability of cassette tapes with tape units with the above standards. It has 
a basic command set which allows control of the tape unit and interrogation of internal registers. Connection to the unit is 
via a 50-pin flat connector, which also supplies power from an external source. 

Control of the Teac tape unit is via a microcomputer. This computer converts commands from a control program called 
Wit. Three 8-bit control buses link the Teac tape unit via the 50-pin flat connector and a simple interface board in the 
microcomputer. 

Data is then transfered to a minicomputer using a communications package which allows file transfers to take place. 


FIGURE 1 .1 . Overview of system operation 
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CHAPTER 2 

The Teac Tape Replay Unit 


INTRODUCTION 

The Teac Tape Replay Unit is basically used to extract data from a cassette tape and transfer this data to a controlling 
computer. The details on how this system functions are given in as much simplistic detail as possible in the following 
chapters. A knowledge of logical operations and bit manipulation is essential to understand the operation of controlling the 
unit It has been found that if these instructions are not adhered to by the letter, control of the unit is virtually impossible. 

Some of the features of the unit have been deliberately left out, as they do not apply to this application. For details on the 
range of capabilities refer to the TEAC MODEL MT-2 Instruction Manual. 

GENERAL DESCRIPTION 

The MTU (magnetic tape unit) is divided into three parts according to their functions. These are transport, transport 
electronics, and interface control. In the following, the transport and transport electronics are referred to as the CMT, and 
the interface control is referred to as the MTC. 

The CMT is controlled by a main system (called the CPU), in this case a microcomputer. All error handling is performed 
by the microcomputer program. 

Logic levels shown in this section of the manual are “1” (ground, 0 volts) and “0” (+5 volts). An example is a clock pulse 
shown to go high then low when the resulting physical output control voltage would be 0 volts then +5 volts. 

CONTROL METHOD 

The MTC has eight registers to be accessed by the CPU. Each of these registers has particular significance for the control 
of the MTU by selecting different functions using these registers. There are 8 registers in the MTC accessible by the CPU; 
detailed descriptions are given later. 


Register 0 Data buffer register (DBR) 

Register 1 Word counter (WDC) 

Register 2 Command register (CDR) 

Register 3 Mode register 0 (MDRO) 

Register 4 Cassette status register (CSR) 

Register 5 Error status register (ESR) 

Register 6 Interrupt status register (ISR) 

Register 7 Mode register (MDR) 


FIGURE 2.1 


Control from the microcomputer is performed via three 8-bit control busses. These busses are called ports and are labelled 
as Port A, Port B and Port C; they make up a 24-line data bus. These are then divided into two groups (Data and Commands), 
Port B being Commands and Port A and Port C being data. Data is then divided into two parts (input and output). Port A 
being output and port C as input (input is here defined as input to the microcomputer). As the data lines from the TEAC 
are both input and output (bidirectional) and use a 16-bit data bus, the microcomputer has to control electronically where 
the data from the TEAC is to go (this is a restriction placed on us by the interface type, it does not allow bidirectional flow). 
The way this is done is by using bit 7 on the Port B data lines to tell the interface between the 1 6-Iine data bus of the TEAC 
and the 24-line data bus which direction the data are flowing. The following diagram should explain. 


Bit 7 

Bit 6 

Bit 5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

BitO 

Port A/Port C 

Clock 

Select 

Read 

Interrupt 

request 

Register 
select 2 

Register 
select 1 

Register 
select 0 


FIGURE 2.2. 
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FIGURE 2.3a 

Port A (output from microcomputer) 
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FIGURE 2.3b 

Port C (input to microcomputer) 


Input/Output signals 

(1) Port A, Data 0-Data 7 Output signals. Eight signal lines to transmit data between the microcomputer and MTU. 

(2) Port C, Data 0-Data 7 Input signals. Eight signal lines to transmit data between the microcomputer and MTU. 

(3) Select Input signal. Used to allow writing/reading to/from the internal registers. 

(4) Register select 0-2 Input signal. Signals to select the registers in the MTU. Any of the eight registers may be selected 
with combinations of these three signals. 

(5) Read Input signal. A signal to determine the direction of data transfer for byte Data 0-Data 7. 

(6) Clock Input signal. Used to determine the data transfer timing for all data transfers and input signals, except the reset 
command. 

(7) Interrupt request. Output signal. A request from the MTU to the microcomputer signalling an Interrupt is required. 
Cleared after reading of the Interrupt Status Register. 

(Timing diagrams - for interface only). 

Internal Registers 

Table 2. 1 shows the registers in the MTU which are accessible to the microcomputer. One of the eight registers is selected 
by the microcomputer through the three register select signals. The data transfer direction is determined by the read signal 
from the microcomputer control program. 


RS2 

RSI 

RSO 

REGISTER NO. 

REGISTERS 

ABBR. 

DIRECTION 

0 

0 

0 

RO 

Data Buffer Register 

DBR 

Input/Output 

0 

0 

1 

R1 

Word Counter 

WDC 

Input/Output 

0 

1 

0 

R2 

Command Register 

CDR 

Input 

0 

1 

1 

R3 

Mode Register 0 

MDRO 

Input 

1 

0 

0 

R4 

Cassette Status Register 

CSR 

Output 

1 

0 

1 

R5 

Error Status Register 

ESR 

Output 

1 

1 

0 

R6 

Interrupt Status Register 

ISR 

Output 

1 

1 

1 

R7 

Mode Register 

MDR1 

Input 


( Input is defined as input to the TEAC drive unit. Output is defined as output to the microcomputer.) 

TABLE 2.1. 

Function of Internal Registers. 
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WDC is a register only effective for the execution of control commands for data transfers. The number of Bytes to be 
transferred is determined by this register. The register is written every time before the input of the control command for 
the data transfer. 


(a) The number of data values to be transferred is designated in Bytes, in this case 252 Bytes are required. 

(b) The register is a counter and the contents are decremented by each data transfer request from the MTC to the 
microcomputer. Therefore it is easy to find out how much data has been transferred by reading the contents of this 
register. 


FIGURE 2.5 
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(c) Writing and reading into or from this register can be done anytime. 


(3) CDR (command register) Input, R2 


RSO 0 


RSI 1 


RS2 0 


DO-bO 

Dl-bl 

D2-b2 

D3-b3 

D4-b4 

D5-b5 

D6-b6 

D7-b7 


Signification 



CMDO (Command Code 0) 
CMD1 (Command Code 1) 
CMD2 (Command Code 2) 
CMD3 (Command Code 3) 


IMO (Interrupt mask flag 0) 
IM1 (Interrupt mask flag 1) 


By writing a control command code to Bits CMDO (bO) to CMD3 (b3), the MTU is instructed to start its operation. At the 
same time, write IMO (b6) and IM1 (b7) to mask or not mask the interrupt during the execution of the control command. 


Once a control command is written to this register, a new control command will not be accepted until the completion of 
the previous command. 
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(a) Command Codes (CMD0-CMD3) 

Table 2.2 shows the control command codes; detailed descriptions of the control commands are given in the section 
Command Code Registers. 

(b) Interrupt mask flag 0 (IMO) 

This flag is set to 1 to disable the Interrupt request flag, as data transfers use the Data Available (DA) flag (explained later) 
instead. 

(c) Interrupt mask flag 1 (IM1) 

This flag is set to 0 to enable the control command end flag (explained later) to be used for MTU control. 


No. 

Command codes 

Hexa-decimal 

notation 

Control commands 

Abbr 

Data 

transfer 

CMD3 

CMD2 

CMD1 

CMDO 

1 

0 

0 

0 

0 

0 

NO OPERATION 

NOP 

x 

2 

0 

0 

0 

1 

1 

WRITE ONE BLOCK 

WRT 

o 

3 

0 

0 

1 

0 

2 

WRITE TAPE MARK 

WTM 

X 

a 

0 

0 

1 

1 

3 

ERASE 

ERA 

X 

5 

0 

1 

0 

0 

4 

READ ONE BLOCK 

RDL 

0 

6 

0 

1 

0 

1 

5 

READ ONE BLOCK 

RDH 

o 

a 

0 

1 

1 

0 

6 

SKIP ONE BLOCK 

SKP 

X 



1 

1 

1 

7 

REVERSE ONE BLOCK 

REV 

X 

9 

1 

0 

0 

0 

8 

SET LOAD POINT 

SLP 

X 

10 

n 

0 

0 

1 

9 

SET LOAD POINT WITH ERASE 

SLE 

X 



0 

1 

0 

A 

REWIND START 

REW 

X 

12 

i 

0 

1 

1 

B 

NO OPERATION 

NOP 

X 

13 

i 

1 

0 

0 

C 

SEARCH TAPE MARK 

STM 

X 

14 

i 

1 

0 

1 

D 

HIGH SPEED SEARCH 

HSS 

X 

15 

i 

1 

1 

0 

E 

NO OPERATION 

NOP 

X 

16 


n 

D 

1 

F 

NO OPERATION 

NOP 

X 


Note: The mark ‘O’ in the column of data transfer indicates that the command accompanies data transfer. The 
mark ‘X’ indicates that the command does not accompany data transfer. The commands No. 5 and No. 6 are the 
same command (READ ONE BLOCK). The command codes for these are only distinguished by the abbreviated 
command name. 

TABLE 2.2 

Control commands and codes. 
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FIGURE 2.6 


SELECT EXIT 

COMMAND COMMAND 

REGISTER REGISTER 



(4) MDRO (Mode Register 0) Input, R3 


Not used (only needed for DMA transfers and software reset) 


(5) MDR1 (Mode Register 1) Input, R7 


Signification 

DO bO 
Dl-bl 
D2-b2 
D3-b3 
D4-b4 
D5-b5 
D6-b6 
D7-b7 

Bit bO must be ‘0’ 

(a) CFRE (controller free request enable) 

If this flag is set to ‘1’, CFR (controller free) is set when the MTC becomes free. The condition of MTC free means that 
no control command is given and the MTU completely stops. 

Used only for controlling the unloading of a cassette from the MTU. 

(b) CFRIM (Controller free interrupt mask flag) 

Not used. 


RSO 

RSI 

RS2 


* 0 ’ 

CFRE (CONTROLLER FREE REQUEST (CFR) ENABLE) 
CFRIM (CFR INTERRUPT MASK FLAG) 
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FIGURE 2.7 


D0-D7 


(6) CSR (cassette status register) Output , R4 



Signification 
EOT (end of tape) 


TM (tape mark detect) 


FPT (file protect) 


CSD (cassette side) 


NRDY (not ready) 


0 ‘ 0 ’ 


0 ‘O' 


ERR (error status) 


This register should NEVER be written to as some of the data bits may be reset. 

(a) EOT (end of tape flag) 

EOT must be looked at after every control command so as not to allow the MTU to run off the rails. 

(b) TM (tape mark) 

The flag is set when one of the following conditions are satisfied: 

(i) Tape mark detected by Read one Block command 

(ii) Tape mark detected by Skip one Block command 

(iii) Tape mark detected by Search tape Mark command. 


This flag is reset after the CSR is read. 
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(c) CSD (cassette side) 

The flag shows which side of the cassette is being read, i.e. ‘0’ Side A, ‘ 1’ Side B. 

(d) NRDY (not ready) 

The flag is * 1 ’ when the cassette is not ready or ‘0’ when all conditions are satisfied for normal operation. 

(e) ERR (error status) 

Shows if an error has occurred, if this is true, i.e. ‘ V then the ESR (error status register) should be read. This flag is reset 
when the ESR is read. 
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(7) ESR (error status register) Output , R5 


RSO 

RSI 

RS2 



Signification 

DO-bO 
Dl-bl 
D2-b2 
D3-b3 
D4-b4 
D5-b5 
D6-b6 
D7-b7 


CRCER (CRC error) 

RTIMER (read timing error) 
WTIMER (write timing error) 
(PPER (preamble/postamble error) 
WDCER (word count error) 
LIBGO fiong IBG 0) 

LIBG1 Gong IBG 1) 


Various error-checks are performed in the MTU during the execution of a control comm and . If an error or errors are detected 
by the error checks, the causes of errors are indicated in this register. When the contents of this register are read the errors 
are cleared. 

This register should NEVER be written to, as the data will be lost. 

All error handling and actions are handled by the high level control programs, so the only thing is for the 
programmer to know what each error is and how to fix it. 
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(a) CRCER (Cyclic Redundancy Check Error) 

CRC checking is only performed during the execution of the Read One Block command. 

(b) RTIMER (read timing error) 

Read timing is checked only during the execution of a Read One Block command. 

If this error does occur then the microcomputer program is at fault, and the section on the microcomputer program should 
be read. 

This error occurs when the MTC is giving out data faster than the microcomputer control program can read it The maximum 
time allowed between the Data Available signal and Data Read is approximately 54.0 microseconds. 

(c) WTIMER (write timing error) 

Not used. 

(d) PPER (preamble/postamble error) 

Only checked during Read One Block command. 

(e) WDCER (word count error) 

Only checked during Read One Block command. 

The MTC compares the number of data bytes from the cassette tape with the number previously written in the register 
WDC before the input of the Read One Block command, and if both numbers do not match, the flag is set to T. 

If the number of data bytes actually read is greater than the number written in WDC, data transfer requests equal to the 
number written in the WDC are supplied to the microcomputer and the residual data are ignored. 

(f) LIBGO (long interblock gap 0) 

This check is performed during the execution of High Speed Search. 

(g) LIBG1 (long inter block gap 1) 

Checked during all commands sent to the control register. 
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(8) ISR (interrupt status register) Output , R6 



Signification 


RSO 

0 

DO-bO 

0 


RSI 

1 

Dl-bl 

0 


RS2 

1 

D2-b2 

0 




D3-b3 

0 




D4-b4 


Cm (controller free request) 



D5-b5 


DA (data available) 



D6-b6 


DBRE (data buffer register empty) 



D7-b7 


CCE (control command end) 


If a request to the microcomputer for service occurs in the MTC, a flag corresponding to the request is set in this register. 
When the microcomputer reads the contents of the register, the contents are automatically cleared. 

NEVER write to this register, as the contents may be cleared. 

(a) CFR (controller free request) 

If CFRE is 4 1’ , the CFR flag is set when the MTC is free or when it becomes free. 


(b) DA (data available) 


This flag is only effective during the execution of Read One Block command. This flag cannot be set during the execution 
of other control commands. 


The MTC sets this flag to ‘ 1’ to request the services of the microcomputer to transfer each byte to the microcomputer of 
read data (1 Byte) off the cassette tape from the register DBR. 
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(c) DBRE (data buffer register empty) 

Only used for writing to tape. 

(d) CCE (control command end) 

This flag is set when all the basic operations of each control command are completed and the MTC is ready for receiving 
the next control command. 

This flag is set on completion of each control command except for the NOP command. 

COMMAND CODE REGISTER (CDR) 

Use of the command code register requires 8 data Bits (Bottom 8 bits of the 16 Bit word) along with Command Code 
Register instruction (Top 8 bits of the 16 bits word). 

Command register diagram 

The register has to be selected, with clock pulse high (Bit 14), then the instruction required (e.g. Set Load Point) along with 
a clock pulse low. To Finish the instruction the clock pulse has to be sent high to exit from command mode. Then clock 
high then low, then clock high before next instruction (ALWAYS FINISH WITH CLOCK HIGH), e.g. set load point 
(Bit 14 = clock pulse). 
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The notation used in this section may seem confusing, so a brief explanation will be attempted. 


The notation (ISR, bS), refers to the Interrupt Status Register, Bit 5. EOT (bO) refers to the End of Tape marker or bit 0 of 
the register you are currently looking at. 


Command codes: 


(NOP) No operation — does nothing 

(WTM) Write tape mark — not used in this application 

(WRT) Write one block — not used in this application 

(ERA) Erase — not used in this application 

(RDL) Read one block — reads one block of 252 bytes of data 

(RDH) Read one block — as above 

(SKP) Skip one block — looks for next tape mark in slow forward mode 

(REV) Reverse one block — looks for previous tape mark in slow reverse mode 

(SLP) Set load point — move the tape in slow forward from BOT (begin of tape) to the load point marker 

(SLE) Set load point with erase — not used in this application 

(REW) Rewind start — rewinds tape in fast reverse to clear leader 
(STM) Search tape mark — searches next tape mark in slow forward mode 

(HSS) High speed search — searches next tape mark in fast forward mode (not used) 

Read one block (RDL, RDH) 
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(1) Command codes (CDR) 


FIGURE 2.11 


b7 b6 b5 b4 b3 b2 bl bO 



b7 b6 b5 b4 b3 b2 bl bO 



(2) Explanation of the command 


Two commands (RDL and RDH) to read one block of data from the cassette tape are available. 


Receiving this command, the MTU makes the tape run in slow forward mode and starts the read operation at the detection 
of a block. The read data are loaded in the register DBR in the form of bytes. Then the DA flag (ISR, b5) is set to “ 1”. With 
each setting of the DA flag (ISR, b5), the contents of register WDC is decremented until it reaches “0”. When the contents 
becomes “0”, no data transfer request will occur even if the reading of data on the tape continues. 

(3) Check for the contents of the register CSR 

When the microcomputer detects the completion of the command (CCE=“1”), read the contents of register CSR and check 
the following flags. 


(a) EOT (bO) 

If the tape passes over the EOT hole in the time period from the starting of the RDL or RDH operation to the reading 
out of the contents of CSR, this flag is set to “1”. 

(b) TM (bl) 

The “1” state of this flag indicates that the block read was a tape mark. In this case, WDCER (ESR, b4) has occurred 
and the ERR (CSR,b7) flag is set to “1”. 

(c) ERR (b7) 

(i) When the block read was a tape mark (TM=“1”), this flag is set to “1” as explained in the above item (b). It is 
required for the CPU to ignore the ERR flag in this case. Then be sure to read out the register ESR to reset WDCER, 
If it is not done, WDCER will maintain “1” until the end of the next command. 

(ii) If this flag is “0” without the detection of a tape mark, the command has been executed correctly. 

(iii) If this flag is “1” without the detection of a tape mark (TM=“0”), it indicates that an error or errors have occurred. 
In such event, read the register ESR to check the contents of the register ESR. 

(4) Check for the contents of the register ESR 

The following five flags are effective for RDL and RDH commands. Other flags are “0” at this time (see ESR register 
description). 


(a) 

CRCER (bO) 

(b) 

RTIMER (dbl) 

(c) 

PPER (b3) 

(d) 

WDCER (b4) 

(e) 

LIBG1 (b6) 


(5) Precautions for controlling 

(a) Remember to write the number of data bytes to be transferred into the register WDC. You may write the number any 
time before the first data transfer request (DA=‘T”) from the MTU. However, it is usually written before input of a 
control command. 

If an RDL or an RDH command is executed without the above designation, one data transfer request occurs whatever 
the contents of WDC may be and WDCER (ESR, b4) is set to “0” at the end of the command. 
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(b) Table 2.3 shows the number written in the register WDC and the number of the data on the tape. The table shows the 
case when the WDC is written to 100 and a block of 97 bytes-103 bytes is read. 


CASE 

(A) 

(B) 

(C) 

(D) 

(E) 

(F) 

(G) 

No. written in WDC 

100 

100 

100 

100 

100 

100 

100 

No. of actual read data 

97 

98 

99 

100 

101 

102 

103 

No. of data transfer request to micro 

98 

99 

100 

100 

100 

100 

100 

WDCER (ESR,b4) 

■T’ 

“1” 

“1" 

“0” 

“1” 


tt|»» 

Residual No. of WDC 

2 

1 

0 

0 

0 

0 

0 


TABLE 2.3 

Number in WDC and number of read data 


(i) The cases (A) - (C) show that the number of data actually read is smaller than the number written in WDC. The 
case (D) shows that both numbers are equal. The cases (E) - (G) show that the number of data actually read is 
greater than the number written in WDC. 

(ii) For the cases (A) - (C), the first one byte of the CRC is transferred to the microcomputer. Preamble and postamble 
are not transferred in any cases. 

(iii) The residual number of WDC shows the contents of WDC at the completion of the command, the microcomputer 
can read the contents freely. 

(d) Remember that only one data transfer request (DA=“1”) occurs when a tape mark is read. 

(e) Recognition of a noise block 

Any blocks which are shorter than 1 5 bits are recognised as noise blocks and they are ignored. 

(f) If a CRCER (ESR, bO) or a PPER (ESR, b3) occurs, read the block again after executing a REV command. 

(g) If RTIMER (ESR, bl) occurs, read the block again after executing a REV command. 

REVERSE ONE BLOCK (REV) 

(1) Command code (CDR) 


hi b6 b5 b4 b3 b2 bl bO 



FIGURE 2.1 2 


(2) Explanation of the command 

A command to make the tape run one block in slow reverse mode. No data are transferred by this command. When the end 
of the reversed block is detected, CCE (ISR, b7) is set to “1” to inform the command end to the microcomputer. 

Error checking for the blocks is not performed by the REV command. 

(3) Check for the contents of the register CSR 

When the microcomputer detects the end of the command (CCE=“1”), read out the contents of the register CSR and check 
the following flags in the register. 

(a) EOT (bO): If the tape passes over the EOT hole in the lime period between the starting of the REV operation and the 
reading out of the contents of CSR, this flag will be reset. 

(b) ERR (b7): If this flag is “0”, it indicates that the command has been executed correctly. If it is “1”, read the contents 
of the register ESR. 
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(4) Check for the contents of the register ESR 

The REV command only checks for LIBG1 (b6). Other flags maintain “0”. 

(5) Precautions for controlling 

(a) Recognition of noise blocks: Any blocks which are shorter than 15 bits are recognised as noise blocks and they are 
ignored. 

(b) If a REV command is supplied before the first block on the tape (BOT hole side), the tape runs passing over the BOT 
hole by about 400 mm and stops. In such event, LIBG1 (ESR,b6) will be set to “1”. Then if a forward run command 
is supplied from that stopped point, EOT (CSR.bO) will not be set to “1” even if a hole is detected. However, LIBG1 
might be detected. 

SKIP ONE BLOCK (SKP) 

(1) Command code (CDR) 



FIGURE 2.13 


(2) Explanation of the command 

A command to make the tape run one block in slow forward mode. No data are transferred by the command. When the end 
of the skipped block is detected, CCE (ISR,b7) is set to “1” to inform the end of the command to the microcomputer. 

By the SKP command, a tape mark is detected, while the error checks for the data block are not performed. 

(3) Check for the contents of the register CSR 

Read the contents of the register CSR and check the following flags in the register, when the microcomputer detects the 
end of the command (CCE=“ 1 ”). 

(a) EOT (bO): If the tape passes over the EOT hole in the time period from the starting of the SKP operation to the reading 
out of the CDR contents, this flag indicates “1”. 

(b) TM (bl): When the skipped block was a tape mark, this flag is set to “1”. 

(c) ERR (b7): If this flag is “0”, it indicates that the command has been executed correctly. If it is “1”, confirm the contents 
of the register ESR. 

(4) Check for the contents of the register ESR 

SKP command only checks for LIBGI (b6). Other flags maintain “0”. 

(a) Recognition of noise blocks: Any blocks which are shorter than 15 bits are recognised as noise blocks and they are 
ignored. 

SET LOAD POINT (SLP) 

(a) Command code (CDR) 



FIGURE 2.14 
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(2) Explanation of tie command 

A command to make the tape run in slow forward mode from the BOT side clear leader to the load point (initial position). 
Start any read operations for the cassette tape after executing this command. If the cassette tape is not wound up to the 
BOT side clear leader, execute a REW command first to wind the tape to the BOT side clear leader and then execute the 
SLP command. 

Figure 2.15 shows the head and tape position after executing the SLP command. 



(3) Check for the contents of the register CSR 

When the microcomputer detects the end of the command (CCE=‘T”), read out the contents of the register CSR and check 

for ERR (b7). EOT (bO) and T1 (bl) flags maintain “0”. 

(a) ERR (b7): If this flag is “0”, it indicates that the SLP command has been executed correctly. If it is “1”, read out the 
register ESR. 

(4) Check for the contents of the register ESR 

The SLP command only checks for LIBG1 (b6). Other flags maintain “0”. 

(a) LIBGI (b6): If the BOT hole is not detected after a 22.0-24.5 inch (558.8-622.3 mm) run of the tape from the BOT 
side end of the clear leader, this flag is set to “1” to complete the command. 

(5) Precautions for controlling 

(a) If the SLP command is supplied when the tape is in magnetic tape area, the tape starts to run and if a hole is not 
detected during the 600 mm (approximately) run, LIBGI (ESR, b6) is set to “1” to complete the command. Even if 
a hole is detected within the 600 mm run, there is no way to distinguish the EOT hole from the BOT hole. 

(b) If the SLP command is supplied in the EOT side clear leader, magnetic tape area is not detected and the CCE(ISR,b7) 
will not be set. 

(c) The MTU accepts the SLP command even if a cassette tape is not inserted. The execution of the SLP command will 
be started when a cassette is inserted and NRDY becomes “0”. 


Be sure to confirm that the cassette to be inserted is wound up to the BOT side clear leader. 

REWIND START (REW) 

(1) Command code (CDR) 



FIGURE 2.16 


(2) Explanation of the command 

A command to rewind the tape at fast reverse mode (45ips) to the BOT side clear leader end. When the execution of this 
command starts, CCE (ISR,b7) is set to “1” immediately and the starting of the rewind operation is informed to the 
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microcomputer. If a new command is supplied after CCE=“1”, the new command will be executed successively after the 
completion of the rewind operation. 

When you rewind the tape to remove the cassette from the MTU, no other operation is needed after confirming rewinding 
start (CCE=“1"). 

(3) Check for the contents of the register CSR 

The REW command does not check errors. TM(bl) and ERR(b7) flags maintain “0”. The EOT(bO) flag will be reset if an 
EOT hole is detected during the rewind operation. 

From above reason you need not check the contents of the register CSR if it is not required for special purposes. 

(4) Precautions for controlling 

(a) The MTU accepts the REW command even if a cassette tape is not inserted. The execution of the REW command 
will be immediately started when a cassette is inserted and NRDY becomes “0”. The CCE(ISR,b7) is set to “1” 
immediately after the starting of the command execution. 

(b) For the detection of the rewinding operation end, CFR (ISR,b4) is available. 

SEARCH TAPE MARK (STM) 

(1) Command code (CDR) 



FIGURE 2.17 


(2) Explanation of the command 

A command to make the tape run continuously at slow forward mode and to search the tape mark. When the tape mark is 
detected, CCE(ISR,b7) is set to “1” and the end of the command is informed to the microcomputer. 

Error checking and data transfers of the blocks, except for the tape mark, are not performed by the STM command. 

(3) Check for the contents of the register CSR 

If the microcomputer detects the command end (CCE=“l”), read the contents of the register CSR and check the following 
flags in the register. 

(a) EOT (bO): If the tape passes over the EOT hole in the time period from the starting of the STM operation to the reading 
out of the CSR contents, this flag is set to “1”. 

(b) TM (bl): When the tape mark is detected, this flag is set to “1”. ERR (b7) is “0” at this time. 

(c) ERR (b7): When this flag is “1”, read the register ESR. 

(4) Check for the contents of the register ESR 

STM command only checks for LIBG1 (b6). Other flags maintain “0”. 

(5) Precautions for controlling 

(a) Recognition of a noise block: Any blocks which are shorter than 15 bits are recognised as noise blocks and they are 
ignored. 

(b) Input a SKP command if you want to stop the STM operation after it is started. The MTU will execute the SKP 
command instead of the STM command and set the CCE (ISR,b7) to “1” to complete the command. 

Never input a command except for the SKP. If it were given, troubles might occur. 

(c) When an error occurs in the tape mark, the tape will be forwarded without a stop, as the block cannot be recognised 
as a tape mark. 
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HIGH SPEED SEARCH (HSS) 

(1) Command code (CDR) 



FIGURE 2.18 


(2) Explanation of the command 

A command to make the tape run continuously at fast forward mode (45 ips) and to detect the tape mark. When the tape 
mark is detected, CCE (ISR,b7) is set to “1” and the end of the command is informed to the microcomputer. 

(3) Check for the contents of the register CSR 

If the microcomputer detects the end of the command (CCE=“1”), read the contents of the register CSR and check the 
following flags in the register. Remember to ignore the TM (bl). 

(a) EOT (bO): If the tape passes over the EOT hole in the time period from the starting of the HSS operation to the reading 
out of the CSR contents, this flag is set to “1”. 

(b) ERR (b7): If this flag is “0”, it indicates that the command has been executed correctly. If it is “1”, read the register 
ESR. 

(4) Check for tie contents of the register ESR 

HSS command only checks LIBGO (ESR,b5). Other flags maintain “0”. 

(5) Precautions for controlling 

(a) How to detect the tape mark: As the tape mark pattern is not checked by HSS command, the tape mark is recognised 
by the method in Figure 2.19. 

This method utilises the differences in the block length, that the standardised tape mark in the various standards is 32 
bits, minimum data block is 48 bits, and the maximum noise block recognised by the MTU at fast mode is 1 1 bits. 


Noise Block 


Tape Mark 


Minimum data 
block 


tl 


t2 


FIGURE 2.19 

(b) Start/stop distances: As the HSS command is executed at fast mode, the longer tape distance is required for start/stop 
operations than at slow mode. Be sure to insert a longer IBG than usual. 

The tape length required to recognise the tape mark from the difference in block length after starting the HSS operations 
is 2.4 inches (60.96 mm) maximum. The tape length travelled from the trailing edge of the tape mark detected by HSS 
command to the point where tape completely stops is 1.9 inches (48.26 mm) maximum. 




Preamble 


Preamble Data 

(2 bytes) 


Postamble 


CRC 


11 bits or less 


32 bits 


Post amble 

48 bits or more 
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STATUS INFORMATION 




Status information is indicated by registers CSR and ESR. Some of the status information is always effective and some is 
not always effective, indicating the result of the control command. The status is alway acted upon by the minicomputer, 
so this section is to be read in conjunction with Chapter 4 (Minicomputer Control Program) 

(1) Status always effective 

The status FPT(CSR,b2), CSD(CSR,b3) and NRDY(CSR,b4) are always effective. Each of these status indicates the 
cassette tape condition. These status are usually checked before the execution of a control command. 

(2) Status indicating the result of a control command executed 

Table 2.4 shows the status information to be checked for each control command executed. The status in the table which 
has ‘O’ (except for the status with asterisks) indicates that the checking is not done for the command. 

(a) EOT (CSR.bO): The flag becomes effective after executing a control command except for REW, SLP, and SLE. The 
“1” state is maintained as long as the cassette tape is in EOT state (see table 2.4). The flag is reset by the input of RST 
signal or by executing SRST (soft reset). 

(b) TM (CSR.bl): The flag becomes effective after executing a control command of WTM, RDL, RDH, or STM. It is 
reset when the register CSR is read out. The TM flag indicates either “0” or “1” after the execution of the HSS 
command. However, either state “0” or “1” should be ignored. 

(c) ERR (CSR,b7): The flag becomes effective after executing a control command except for REW and ERA, and is reset 
after the the register ESR is read out. When the ERR flag indicates “1”, read the register ESR to confirm its contents 
and to clear the contents for the execution of the next command. If the contents of ESR is not read out, it will be 
maintained after the execution of the next control command. 

(3) Notes for table 2.4 

(a) The table indicates the cases without operation errors and troubles of the MTU. 

(b) The number with asterisk indicates that the checking is performed. However the status are as indicated in the table 
when no troubles occur in the MTC. 

(c) A “0” without asterisk indicates that the checking is not performed. 

(d) The status information with double asterisks (**) are ineffective. They should be ignored by the CPU side of 
operations. 


Control 

commands 

Register CSR 

Register ESR 

ERR 

b7 

TM 

bl 

EOT 

bO 

LIBG1 

b6 

LIB GO 
b5 

WDCERb4 

PPER 

b3 

WTIMER 

b2 

RTIMER 

bl 

CRCER 

bO 

WRT 

1,0 

0 

1,0 

*0 

0 

0 

1,0 

1,0 

0 

1,0 

WTM 

*0 

1,0 

1,0 

*0 

0 

0 

0 

0 

0 

0 

ERA 

O 

o 

1,0 

0 

0 

0 

0 

0 

0 

0 

RDL 

1,0 

1,0 

1,0 

1,0 

0 

1,0 

1,0 

0 

1,0 

1,0 

RDH 

1,0 

1,0 

1,0 

1,0 

0 

1.0 

1,0 

0 

1,0 

1,0 

SKP 

1,0 

1,0 

1,0 

1,0 

0 

0 

0 

0 

0 

0 

REV 

1.0 

**0OR 1 

1,0 

1,0 

0 

0 

0 

0 

0 

0 

SLP 

1,0 

0 

0 

1,0 

0 

0 

0 

0 

0 

0 

SLE 

1,0 

0 

0 

1,0 

0 

0 

0 

0 

0 

0 

REW 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

STM 

1,0 

1,0 

1,0 

1,0 

0 

0 

0 

0 

0 

0 

HSS 

1,0 

**0OR 1 

1,0 

0 

1,0 

0 

0 

0 

0 

0 
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CHAPTER 3 

Microcomputer interface 


INTRODUCTION 

The microcomputer interface enables control of the TEAC tape unit through a Fortran control program. All control and 
error handling are performed by this program. The program is divided into 2 major parts: 

(a) a subroutine called TEACCONT, which is used for control of the TEAC tape unit and error handling. The subroutine 
accepts instruction (or control) from the main part of the program. 

(b) the main program (WIT), which gives instructions to the TEACCONT subroutine and reformats the data retrieved to 
that required for tape backup. This chapter will focus only on the control of the subroutine TEACCONT. 

INSTRUCTION SET 

The TEACCONT subroutine accepts the following instructions from the main program and translates them into TEAC 
control codes. 

Instruction Code (main program) 


Read One Block 

RDH 

Skip One Block 

SKP 

Reverse One Block 

REV 

Rewind Set Load Point 

SLP 

Unload 

UL 

Search Tape Mark 

STM 


BASIC OPERATION 

The basic operation of the TEACCONT subroutine is as follows: 

(1) On start up: 

(i) Reset all program parameters (i.e. pointers, interrupts etc.). 

(ii) Initialise and reset the TEAC tape unit. 

(iii) Wait for a request to perform an instruction from the WIT subroutine 

(2) On receiving a request to perform an instruction: 

(i) Accept an instruction from the WIT subroutine and convert it into control signals for the TEAC tape unit. 

(ii) Perform instruction. 

(iii) Act on any errors which may have occured and try and remedy the fault Return the error status to the WIT 
subroutine for further action if required. 

PROGRAM STRUCTURE 

The program is set up as a main program dealing with control and error handling of the TEAC tape unit. All commands 
are dealt with by subroutines designed to issue these instructions to the tape unit. These subroutines may then call up 
ancillary subroutines which may be shared by a number of command subroutines; these include error handling, clock pulses 
and tape unit control information. 

DESCRIPTION OF CONTROL COMMAND SUBROUTINES 

Main control routine (TEAC) 

Sets up the interface between the microcomputer and the TEAC tape unit Is used to set up 16 output lines and 8 input lines. 
It also controls how the commands passed down by WIT (i.e. the main control section) are performed. 
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Read One Block (RDL or RDH) 


The Read One Block command requires the most interaction between the TEAC tape unit and the microcomputer. As data 
are transfered from the tape unit as 252 byte blocks, the microcomputer program has to be fast enough to read and store 
the data one by te at a time without handshaking or buffering. The time restrictions imposed by the this problem means that 
the program has to be as efficient as possible in terms of speed and not programming technique. 

Upon receiving the command from the WIT subroutine to read one block of data, the TEACCONT subroutine starts the 
Read One Block subroutine which acts in the following way: 

(i) Writes to the tape unit Word Counter Register the number of bytes per block of data to be retrieved (i.e. 252). 

(ii) Reads the interrupt status register and checks for DA (data available) and CCE (control command end), and repeats 
this until one or the other is found. 

(iii) If DA, then read one byte of data and store it in an array: if CCE, then end. 

(iv) Repeat (ii) until CCE 

(v) Check for an error and act upon it. Try to read the block at least eight times. 

(vi) Reformat the data into the correct format for the WIT subroutine. The correct format is that of one single 16 bit word 
for every two bytes of data. 

(vii) Return this array of data to the WIT subroutine, 

The Read One Block command is basically broken up into three sections 

(1) Set up the tape unit to replay one block of data 

(2) Read and store in memory one block of data and act on any errors 

(3) Give this one block of data to the WIT subroutine in the correct format. 

The main control subroutine flow chart is shown in Figure 3.1. 

The flow chart of the subroutine which is the most critical section of th eRead One Block command is shown in Figure 3.2. 
The structure of this flow chart should be followed to the letter. Any deviation will cause drastic errors and possible loss 
of data. 

Skip One Block (SKPBLK) (fig. 3.3) 

This command moves the tape forward one block of data in slow forward mode. It does not return any data to the WIT 
subroutine, however it does return the contents of the Error and Cassette status registers to the WIT subroutine computer 
for error handling and reports locally of the error detected. 

Reverse One Block (REVBLK) (fig. 3.4) 

This command rewinds the tape in slow mode to the beginning of the previous block of data. No data is read and the contents 
of the Error and Cassette status registers are returned to the WIT subroutine for error handling and reports locally of the 
error detected. 

Rewind Set Load Point (SETLP) (fig. 3.5) 

This command fully rewinds the tape (to the clear leader) then moves it forward in slow mode until the load point marker 
is detected by the tape unit; the tape stops on that point. No data is read and the contents of the Error and Cassette status 
registers are returned to the WIT subroutine for error handling and reports locally of the error detected. 

Unload (REWCL) (fig. 3.6) 

This command is similar to the REW command except for two major differences: 

(i) The tape is rewound to the beginning of the tape (clear leader) and not moved forward to the Load Point. 

(ii) The contents of the Error and Cassette status registers are not checked. 

This command is issued only to remove a cassette tape from the Teac tape unit. 
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Search Tape Mark (SRCHTM) (fig. 3.7) 

This command searches for the next tape mark that appears on the tape in slow forward mode. No data is read and the 
contents of the Error and Cassette status registers are returned to the WIT subroutine for error handling and reports locally 
of any errors. 

ANCILLARY COMMANDS 

Read Status Register (STATREG) (fig. 3.8) 

Read the contents of the tape unit status register. The nature of the status register (cassette, error and interrupt) are 
determined by the calling routine. 

Control command (CONTCOM) (fig. 3.9) 

Instructs the TEAC tape drive what instruction is to be carried out. 

Write Word Counter (WORDCOUNT) (fig. 3.10) 

The write word counter subroutine is used to tell the tape unit the number of bytes of data to be read as one block. In this 
case the number is 252, which is determined by the way the tape has been formated on recording, i.e. 252 bytes per block. 
Once data has been written to the word counter it is not read from or written to until the next block of data are to be read. 

Teac Reset (TEACRST) (fig. 3.11) 

Used on power up this subroutine establishes communication to the tape unit and resets all software control to the initialising 
state. Only used on start up, not during normal operation. 

Control Command End (CCE) (fig. 3. 12) 

The Control Command. End subroutine is one of the most important of the ancillary subroutines, as it detects when an 
operation such as reverse one block, skip one block etc. has been completed. If this flag is not checked for it would be very 
easy for the tape unit to miss instructions from the microcomputer because it may be executing an operation whilst another 
instruction is passed onto it, and therefore miss the new instruction altogether. This CCE subroutine is to be used at the end 
of every control command subroutine before returning for another control command. 

Errors (ERRORS) (fig. 3. 13) 

At the completion of all the command control subroutines (except unload) the results of the ESR and CSR are given to the 
WIT subroutine for error diagnosis. However some errors are acted upon locally or just reported locally. 

Write data to the TEAC tape unit (OUTIO) 

Writes data to the computer output port which is connected to the TEAC tape unit 

Read data from the TEAC tape unit (INIO) 

Reads data from the computer input port which is connected to the TEAC tape unit 


[28 August 1991] 
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FIGURE 3.6 
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FIGURE 3.12 
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APPENDIX 1 
Tape format 


LONG 



RLE 


IBG 


RLE 

MARK 


LONG 

IBG 


RLE 


IBG 


FILE 

MARK 


IBG 


LAST FILE 

IBG 

FILE 

MARK 

IBG 


FILE 

MARK 


I 252 BYTES 




0.7 m 



0.7 m 

HEADER BLOCK 

IBG 

RECORD BLOCK 1 

IBG 


RECORD BLOCK N 


BYTE 1 m PACKED BCD FILE ID # 

BYTE 3 - 16 - 4*4 DIGIT BCD USER CONSTANTS 
BYTE IS - X66 - 0 


I 

: ia bytes: 




0.05 m 

0.05 m 

0.05 m 

r 

0.05 m 

SCAN 

SCAN 

SCAN 


SCAN 

1 

2 

3 


14 


LAST RECORD BLOCK IS 
FILLED WITH ZEROS 
AS NECESSARY 


. J L. 



DEPTH 

CHANL 1 

CHANL 2 

CTR 1 

CTR 2 

REAL 

TIME 

CHANL 1 

CHANL 2 

4 DIGITS 

4 DIGITS 

4 DIGITS 

6 DIGITS 

6 DIGITS 

4 DIGITS 

16 BITS 

16 BITS 


;-e 


PACKED BINARY COOED DECIMAL 


' 2'S COMPLEMENT 
H BINARY 


THE 2'S COMPLEMENT CONVERSIONS ARE 12 BR WIDE AND ARE 
RECORDED DIRECTLY FROM THE A/D CONVERTERS. THE TOP FOUR 
BITS OF BYTES 15 AND 17 ARE ZEROS. 

THE A DIGIT BCD CONVERSION VALUES IN BYTES 3 TO 6 ARE 
COMPUTED FROM THE TOP 10 BITS OF THE 12 BIT A/D BINARY 
VALUE. 


NOTE THAT THE DATA IS NOT RECORDED ON TAPE IN ASCII AND IS 
THUS NOT DIRECTLY COMPATABLE WITH MOST PRINTERS AND OTHER 
PERIPHERALS WITHOUT REFORMATTING. 
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Interface circuit diagrams 
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APPENDIX 3 

Olivetti computer control program 


c 

C THE OUTPUT DATA PORTS OF THE COMPUTER ARE DEFINED IN THE FOLLOWING WAY 
C 

C PORT A : 

C PORT B ; 

C 
C 
C 
C 

c 
c 
c 

C PORT C : 

C 

C DEFINE COMMON DATA BLOCK 
BLOCK DATA BPORTS 
IMPLICIT INTEGER*2 (A-Z) 

COMMON /PORTS/PORTA, PORTB,PORTC 
DATA PORTA /524/,PORTB /525/,PORTC /526/ 

C OUTPUT PORTA AND B, INPUT PORTC 
END 

BLOCK DATA BSTAT 
IMPLICIT LOGICAL (A-Z) 

COMMON /STAT/ERR, TM, EOT, LIBG1, LIBGO, WDCR, PPR, WTIME , RTIME, CRC 
C COMMON ERROR MESSAGES 
END 

BLOCK DATA BTEACDATA 
COMMON /TBLK/TDATA 
INTEGER*2 TDATA (126) 

C DATA READ FROM TAPE IN BLOCK ASCII FORMAT 
END 
C 

C MAIN DRIVER SUBROUTINE FOR THE CONVERSION OF CONTROL COMMANDS 
C FROM WIT INTO TEAC COMMANDS 
SUBROUTINE TEAC (COM) 

COMMON /PORTS /PORTA, PORTB, PORTC 

COMMON /STAT/ERR, TM, EOT, LIBG1 , LIBGO , WDCR, PPR, WTIME, RTIME, CRC 
COMMON /TBLK/TDATA 
INTEGER*2 PORTA, PORTB, PORTC 

LOGICAL ERR, TM, EOT , LIBG1 , LIBGO , WDCR, PPR, WTIME, RTIME , CRC 
INTEGER*2 ADDRESS, MODE, TDATA ( 12 6) 

CHARACTER* 3 COM 
DATA ADDRESS /527/,MODE /137/ 

CALL OUTB (MODE, ADDRESS) 

C SET UP COMPUTER DIGITAL OUTPUT BOARD SO THAT 
C PORT A AND PORTB ARE OUTPUT AND PORT C INPUT 
CALL TEACRST 
IF (COM.EQ. ' STM' ) THEN 
CALL SRCHTM 
END IF 

IF (COM. EQ . ' UL ') THEN 
CALL REWCL 
END IF 

IF (COM.EQ. ' SLP' ) THEN 

C SET LOAD POINT REQUIRES REWIND BEFORE SETLOAD POINT 
CALL REWCL 
CALL SETLP 
END IF 

IF (COM.EQ. ' SKP' ) THEN 


DATA OUTPUT TO THE TEAC (USED TO LOAD TEAC REGISTERS) 

CONTROL OF CLOCK, REGISTERS, READ/WRITE, SEL . 

BIT 7 OF THIS WORD IS RESERVED TO INFORM THE INTERFACE CARD 
THAT DATA IS TO BE INPUT ON PORT C OR OUTPUT ON PORT A. 

BIT 7=1 THEN INPUT PORT C. BIT 7=0 OUTPUT PORT A. 

WHENEVER INPUT OR OUTPUT OF DATA ON PORT A OR PORT C IS REQUIRED 
BIT 7 HAS TO SET ON PORT B BEFORE HAND DEPENDING ON THE 
DIRECTION OF DATA FLOW. PORTS A AND C SHARE A BIDIRECTIONAL 
BUS ON THE TEAC CONTROL BOARD. 

DATA INPUT FROM THE TEAC (USED TO LOAD TEAC REGISTERS) 
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CALL SKPBLK 
END IF 

IF (COM . EQ . ' REV' ) THEN 
CALL RVBLK 
END IF 

IF (COM. EQ . ' RDH' ) THEN 

CALL READONEBLK 

END IF 

RETURN 

END 

C OUTPUT INSTRUCTION TO RIGHT PORT 

SUBROUTINE OUTIO (PORT, INSTRUCTION) 

INTEGER*2 INSTRUCTION, PORT 
CALL OUTB (INSTRUCTION, PORT) 

RETURN 

END 

C INPUT DATA FROM PORT 

SUBROUTINE INIO (PORT, INFORMATION) 

INTEGER*2 PORT, INFORMATION, INB 
INFORMAT ION=INB (PORT) 

RETURN 

END 

C CLOCK PULSE, HIGH, LOW, HIGH 
SUBROUTINE CLOCK 
COMMON /PORTS/PORTA, PORTB,PORTC 
INTEGER*2 PORTA, PORTB, PORTC, HIGH, LOW 
DATA HIGH /127/,LOW /63/ 

CALL OUTIO (PORTB, HIGH) 

CALL OUTIO (PORTB, LOW) 

CALL OUTIO (PORTB, HIGH) 

END 

C READ STATUS REGISTER, IS INFORMED BY THE CALL SUBROUTINE 
C WHICH STATUS REGISTER ( ISR, ESR, CSR) . 

SUBROUTINE STATREG (SELSTR, READSTR, RESULT) 

COMMON /PORTS/PORTA, PORTB, PORTC 

INTEGER*2 RESULT, SELSTR, READSTR, PORTA, PORTB, PORTC, TREST 
DATA TREST / 127 / 

CALL OUTIO (PORTB, SELSTR) 

CALL OUTIO (PORTB, READSTR) 

CALL INIO (PORTC, RESULT) 

CALL OUTIO (PORTB, SELSTR) 

CALL OUTIO (PORTB, TREST) 

CALL CLOCK 

RETURN 

END 

C WAIT FOR CONTROL COMMAND END TO BE DETECTED 
SUBROUTINE CCE 

INTEGER*2 RESULT, CCETRUE, SELISR, READ I SR 
LOGICAL FLAGCCE 
LOGICAL TESTBIT 

DATA CCETRUE /0/, SELISR /65/,READISR /129 / 

C BIT 0 OF ISR IS THE CCE FLAG 
110 CALL STATREG (SELISR, READISR, RESULT) 

FLAGCCE=TESTBIT (RESULT, CCETRUE ) 

IF (.NOT. FLAGCCE) RETURN 

C CHECK FOR CONTROL COMMAND END BEFORE RETURNING TO CALL ROUTINE. 

C .NOT. FLAGCCE EQUALS CCE HAS OCCURED . 

GOTO 110 
END 

C WRITE TO WORD COUNTER TO COLLECT 252 BYTES OFF TAPE 
SUBROUTINE WORDCOUNT 
COMMON /PORTS/PORTA, PORTB, PORTC 

INTEGER*2 WCOUNT, SELWC, WRITEWC, PORTA, PORTB, PORTC 
DATA SELWC /8 6/ , WCOUNT /3/, WRITEWC /22/ 

C WCOUNT IS THE NUMBER OF BYTES TO BE READ, SINCE REVERSE LOGIC IS USED 
C WCOUNT =3 , ie: THE COMPLEMENT OF 252 
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CALL OUT 10 (PORTB, SELWC) 

CALL OUTIO (PORTB, WRITEWC) 

CALL OUTIO (PORTA, WCOUNT) 

CALL OUTIO (PORTB, SELWC) 

CALL CLOCK 

RETURN 

END 

C TEAC RESET FOR STARTUP, SET COMMAND MODE AND NOT DMA CONTROL 
SUBROUTINE TEACRST 
COMMON /PORTS /PORTA, PORTB, PORTC 

INTEGER*2 SELMDRO, WRITEMDRO , PORTA, PORTB, PORTC, MDRORST 
INTEGER*2 MDR1INST, SELMDR1 , WRITEMDRl , MDRONODMA 

DATA MDRORST /10 9/ , SELMDRO /84/, WRITEMDRO /20/, MDRONODMA /237/ 

DATA MDR1INST /2 4 9/ , SELMDR1 / 8 0 /, WRITEMDRl /16/ 

C BIT 0 OF MDRO DATA IS THE SOFTWARE RESET OF THE TEAC 
C BIT 4 OF MDRO DATA IS TO SET UP FOR NO DMA CONTROL 
CALL OUTIO (PORTB, SELMDRO) 

CALL OUTIO (PORTB, WRITEMDRO) 

CALL OUTIO (PORTA, MDRORST) 

CALL OUTIO (PORTB, SELMDRO) 

CALL CLOCK 

CALL OUTIO (PORTB, SELMDRO) 

CALL OUTIO (PORTB, WRITEMDRO) 

CALL OUTIO (PORTA, MDRONODMA) 

CALL OUTIO (PORTB, SELMDRO) 

CALL CLOCK 

CALL OUTIO (PORTB, SELMDR1) 

CALL OUTIO (PORTB, WRITEMDRl) 

CALL OUTIO (PORTA, MDRl INST) 

CALL OUTIO (PORTB, SELMDR1) 

CALL CLOCK 

RETURN 

END 

C CONTROL COMMAND, WHAT TYPE OF COMMAND IS PASSED ON BY THE 
C CALLING SUBROUTINE. 

SUBROUTINE CONTCOM (CONTROL) 

COMMON /PORTS/PORTA, PORTB, PORTC 

INTEGER*2 SELCOM, WRITECOM, CONTROL, PORTA, PORTB, PORTC 
DATA SELCOM /85/, WRITECOM /21/ 

CALL OUTIO (PORTB, SELCOM) 

CALL OUTIO (PORTB, WRITECOM) 

CALL OUTIO (PORTA, CONTROL) 

CALL OUTIO (PORTB, SELCOM) 

CALL CLOCK 
CALL CCE 
RETURN 
END 

C READ IN ONE BLOCK OF DATA FROM TAPE 

C THIS SUBROUTINE IS REQUIRED TO BE VERY QUICK SINCE THE TEAC DOES NOT 
C WAIT FOR THE COMPUTER TO CAPTURE DATA. ANY MODIFICATION TO THIS ROUTINE 
C CAN AND PROBABLY WILL CAUSE READ TIME ERRORS AND THE CORRECT DATA 
C NOT RETRIEVED OFF TAPE. 

SUBROUTINE READONEBLK 

COMMON /STAT/ERR, TM, EOT, LIBG1, LIBGO , WDCR, PPR, WTIME, RTIME, CRC 
LOGICAL ERR, TM, EOT, LIBG1, LIBGO , WDCR, PPR, WTIME, RTIME, CRC 
COMMON /PORTS /PORTA, PORTB, PORTC 

INT£GER*2 PORTA, PORTB, PORTC, IBYTE, RESULT, READBLOCK, ICOUNT 
COMMON /TBLK/TDATA 

INTEGER*2 SELISR, READISR, DAMASK, SELDBR, READDBR, CCETRUE 
INTEGER* 2 SELCOM, WRITECOM, TDATA ( 126) , TAPDATA (252 ) 

LOGICAL FLAGDA, FLAGCCE , TESTBIT 

DATA SELISR / 65/ , READISR /129/, DAMASK /2 /, READBLOCK /10/ 

DATA SELDBR /71/, READDBR / 135 /, CCETRUE / 0 / 

DATA SELCOM / 85 /, WRITECOM /21/ 

C CCETRUE = MASK FOR ISR BIT 0 (CONTROL COMMAND END) 

C DAMASK = MASK FOR ISR BIT 2 (DATA AVAILABLE) 
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ICOUNT=0 

C FLAG FOR NUMBER OF RETRIES ATTEMPTED 
100 IBYTE=0 

C CURRENT NUMBER OF BYTES 
CALL WORDCOUNT 

C TELL THE TEAC THAT THE RECORD LENGTH IS 252 BYTES OF DATA 
CALL OUTB (SELCOM, PORTB) 

CALL OUTB {WRITECOM, PORTB) 

CALL OUTB (READBLOCK, PORTA) 

C TELL TEAC TO READ ONE BLOCK OF 252 BYTES NOW 
CALL OUTB (SELCOM, PORTB) 

CALL CLOCK 

110 CALL OUTB (SELISR, PORTB) 

CALL OUTB (READISR, PORTB) 

RESULT=INB (PORTC) 

C READ IN INTERRUPT STATUS REGISTER 
CALL OUTB (SELISR, PORTB) 

FLAGDA=TESTBIT (RESULT, DAMASK) 

FLAGCCE-TESTBIT (RESULT, CCETRUE) 

IF (.NOT. FLAGDA .OR. .NOT. FLAGCCE) GOTO 120 
C .NOT. FLAGDA => DATA IS AVAILABLE TO BE COLLECTED 
C .NOT. FLAGCCE => TEAC HAS FINISHED READ ONE BLOCK 
GOTO 110 

C NOT FINISHED YET SO GET A FRESH ISR 
120 IBYTE=IBYTE+1 

CALL OUTB (SELDBR, PORTB) 

CALL OUTB (READDBR, PORTB) 

C SELECT TO READ DATA BUFFER REGISTER 
TAPDATA ( IBYTE) =INB (PORTC) 

C READ THE CURRENT BYTE ON THE DATA BUFFER REGISTER AND STORE IN CURRENT 
C ARRAY POSITION (IBYTE) 

CALL OUTB (SELDBR, PORTB) 

IF (FLAGCCE) GOTO 110 
C FLAGCCE => NO CONTROL COMMAND END 

C IF NO CONTROL COMMAND END THEN, NOT FINISHED YET SO GET MORE DATA 
CALL CLOCK 
CALL ERRORS 

IF {.NOT. ERR .AND. TM) THEN 
C .NOT. ERR => ERROR HAS OCCURED 
C .NOT. TM => TAPE MARK DETECTED 

C CHECK IF AN ERROR HAS OCCURED, BUT IGNORE IF IT IS A TAPE MARK 
IF (.NOT. ERR .AND. ICOUNT . LT . 8) THEN 
C IF AN ERROR HAS OCCURED AND 8 RETRIES HAVENT BEEN ATTEMPTED TRY 
C AND READ THE CURRENT BLOCK AGAIN. IF TRIED 8 TIMES, GIVE UP. 

CALL RVBLK 
C BACK ONE RECORD 

ICOUNT= ICOUNT +1 

C INCREMENT NUMBER OF RETRIES BY 1 
GOTO 100 

C RE READ CURRENT BLOCK 
ENDIF 
ENDIF 

CALL FORMATDATA( TAPDATA) 

RETURN 

END 

C 

C FORMAT THE DATA INTO CORRECT FORMAT FOR WIT 

C COMPLEMENT THE DATA WORD AND JOIN 2 WORDS TO FORM THE NEW WORD 
C NEW FORMAT IS TDATA (I) = TAPDATA ( I- 1) + TAPDATA (I) 

C 16 BITS 8 BITS 8 BITS 

SUBROUTINE FORMATDATA (TAPDATA) 

COMMON /TBLK/ TDATA 

INTEGERS TAPDATA (252 ) , ILOOP , TDATA ( 12 6 ) ,TL,TLP1 
IBCNT=0 
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c current word position of tap data 
DO 200 ILOOP=l, 252,2 

C DO THIS LOOP 126 TIMES (NEW ARRAY SIZE) 

TL=TAPDATA ( I LOOP ) 

C TEMP VARIABLE FOR CURRENT BYTE 
TLP 1=TAPDATA ( ILOOP+1 ) 

C TEMP VARIABLE FOR NEXT BYTE 
DO 210 JLOOP=0, 7 
CALL FLIPBIT (TL, JLOOP) 

CALL FLIPBIT (TLP 1, JLOOP) 

C COMPLEMENT TL AND TLP1 
210 CONTINUE 

CALL SETBYTE (TDATA, IBCNT, TLPl) 

C PUT THE SECOND BYTE OF DATA INTO THE FIRST BYTE OF THE NEW WORD 
IBCNT=IBCNT+1 
C NEXT WORD OF TAP DATA 

CALL SETBYTE (TDATA, IBCNT, TL) 

C PUT THE FIRST BYTE OF DATA INTO THE SECOND BYTE OF THE NEW WORD 
IBCNT=IBCNT+1 
C NEXT WORD OF TAPDATA 
200 CONTINUE 

RETURN 
END 

CHECK FOR ERRORS 

SUBROUTINE ERRORS 
COMMON /PORTS/PORTA, PORTB,PORTC 
INTEGER*2 PORTA, PORTB, PORTC 
COMMON /STAT/STATUS 
LOGICAL STATUS (10) , TESTBIT 

INTEGER*2 SELCSR, SELESR, RESULT, READCSR, READESR 
INTEGER*2 BERR, BTM, BEOT 

DATA SELCSR /67/, READCSR /131/, SELESR / 66/, READESR / 130/ 

DATA BERR /0/,BTM /6/,BEOT /7 / 

CALL STATREG (SELCSR, READCSR, RESULT) 

STATUS (1) “TESTBIT (RESULT, BERR) 

C STATUS (1) => GENERAL ERROR FLAG 

STATUS (2) “TESTBIT (RESULT, BTM) 

C STATUS (2) => TAPE MARK FLAG 

STATUS (3) “TESTBIT (RESULT, BEOT) 

C STATUS (3) “> END OF TAPE FLAG 

CALL STATREG (SELESR, READESR, RESULT) 

DO 200 K=1 , 7 

STATUS (K+3) “TESTBIT (RESULT, K) 

C STATUS (4) => LONG INTER BLOCK GAP 1 FLAG 
C STATUS (5) => LONG INTER BLOCK GAP 0 FLAG 
C STATUS (6) “> WORD COUNTER ERROR FLAG 
C STATUS (7) => POSTAMBLE PREAMBLE ERROR FLAG 
C STATUS (8) => WRITE TIME ERROR FLAG 
C STATUS (9) => READ TIME ERROR FLAG 

C STATUS (10) => CYCLIC REDUNDANCY CHECK ERROR FLAG 
200 CONTINUE 

RETURN 
END 

C COMMAND SEARCH TAPE MARK 
SUBROUTINE SRCHTM 

COMMON /STAT/ERR, TM, EOT, LIBGl, LIBG0, WDCR, PPR, WTIME, RTIME, CRC 
LOGICAL ERR, TM, EOT, LIBGl , LIBG0 , WDCR, PPR, WTIME, RTIME , CRC 
INTEGER*2 SRCH 
DATA SRCH / 3 / 

10 CALL CONTCOM ( SRCH ) 

CALL ERRORS 
IF (TM) THEN 

C TM => NO TAPE MARK DETECTED 
WRITE (5, 900) 
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IF (TM. AND. EOT) THEN 
C TM => NO TAPE MARK DETECTED 
C EOT => NO END OF TAPE DETECTED 
WRITE (5, 901) 

GOTO 10 
ENDIF 
END IF 

IF (.NOT. EOT) WRITE (5, 902) 

C .NOT. EOT => END OF TAPE DETECTED 
IF (.NOT. TM) WRITE (5, 903) 

C .NOT. TM => TAPE MARK DETECETED 

IF (.NOT. LIBG1) WRITE (5, 904) 

C .NOT. LIBG1 => LONG INTER BLOCK GAP 1 ERROR 
IF (.NOT. LIBG0) WRITE (5, 905) 

C .NOT. LIBG0 => LONG INTERBLOCK GAP 0 ERROR 
RETURN 

900 FORMAT (' NO TAPE MARK AFTER SEARCH TAPE MARK') 

901 FORMAT (' NO TAPE MARK AND NO END OF TAPE') 

902 FORMAT (' END OF TAPE FOUND') 

903 FORMAT (' TAPE MARK DETECTED') 

904 FORMAT (' LONG INTER BLOCK GAP 1 DETECTED') 

905 FORMAT ( ' LONG INTER BLOCK GAP 0 DETECTED') 

END 

C COMMAND REWIND TO CLEAR LEADER 
SUBROUTINE REWCL 

COMMON /STAT/ERR, TM, EOT, LIBG1, LIBG0 , WDCR, PPR, WTIME, RTIME, CRC 
LOGICAL ERR, TM, EOT, LIBG1 , LIBG0 , WDCR, PPR, WTIME, RTIME, CRC 
INTEGER*2 REW 
DATA REW / 5 / 

K=0 

C RETRY COUNTER 
15 CALL CONTCOM (REW) 

K=K+1 

CALL ERRORS 
IF (.NOT. ERR) THEN 

C .NOT. ERR = AN ERROR HAS OCCURED, SO RETRY 
IF(K.EQ.3) THEN 

C IF YOU HAVE RETRIED 3 TIMES, QUIT 
WRITE (5, 910) 

STOP ' REWIND FAILED 3 TIMES, PLEASE RESTART PROGRAM !!' 

ELSE 

C RETRY AGAIN 
GOTO 15 
ENDIF 
ENDIF 
RETURN 

910 FORMAT (' FAILED AFTER 3 TRIES') 

END 

C COMMAND SET LOAD POINT 
SUBROUTINE SETLP 

COMMON /STAT/ERR, TM, EOT, LIBG1 , LIBG0 , WDCR, PPR, WTIME, RTIME, CRC 
LOGICAL ERR, TM, EOT, LIBG1, LIBG0, WDCR, PPR, WTIME, RTIME, CRC 
INTEGER*2 SETLDP 
DATA SETLDP /7 / 

K— 0 

C RETRY COUNTER 
20 CALL CONTCOM (SETLDP) 

CALL ERRORS 
K=K+1 

IF (.NOT. ERR) THEN 

C .NOT. ERR => AN ERROR HAS OCCURED, SO RETRY 
IF (K . EQ . 3 ) THEN 

C IF YOU HAVE TRIED 3 TIMES, QUIT 
WRITE (5, 920) 

STOP ' SET LOAD POINT FAILED 3 TIMES, PLEASE RESTART PROGRAM !!' 
ELSE 
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C RETRY AGAIN 
GOTO 20 
ENDIF 
ENDIF 
RETURN 

920 FORMAT (' FAILED AFTER 3 TRIES') 

END 

C COMMAND SKIP FORWARD ONE DATA BLOCK 
SUBROUTINE SKPBLK 

COMMON /STAT/ERR, TM, EOT, LIBGl , LIBGO , WDCR, PPR, WTIME, RTIME, CRC 
LOGICAL ERR, TM, EOT, LIBGl , LIBGO, WDCR, PPR, WTIME, RTIME, CRC 
INTEGER*2 SKIPBLK 
DATA SKIPBLK / 9 / 

CALL CONTCOM (SKIPBLK) 

CALL ERRORS 

IF (.NOT. TM) WRITE (5, 930) 

C .NOT. TM => TAPE MARK DETECTED 
IF (.NOT. EOT) WRITE (5, 931) 

C .NOT. EOT => END OF TAPE FOUND 

IF {.NOT. LIBGl) WRITE (5, 932) 

C .NOT. LIBGl => LONG INTER BLOCK GAP ERROR 
RETURN 

930 FORMAT {' TAPE MARK DETECTED') 

931 FORMAT (' END OF TAPE FOUND') 

932 FORMAT (' LONG INTER BLOCK GAP DETECTED') 

END 

C COMMAND REVERSE ONE BLOCK 
SUBROUTINE RVBLK 

COMMON /STAT/ERR, TM, EOT, LIBGl, LIBGO, WDCR, PPR, WTIME, RTIME , CRC 
LOGICAL ERR, TM, EOT, LIBGl, LIBGO , WDCR, PPR, WTIME, RTIME, CRC 
INTEGER*2 REVBLK 
DATA REVBLK / 8 / 

CALL CONTCOM (REVBLK) 

CALL ERRORS 

IF {.NOT. TM) WRITE <5, 940) 

C .NOT. TM => TAPE MARK DETECTED 
IF (.NOT. EOT) WRITE (5, 941) 

C .NOT. EOT => END OF TAPE FOUND 


IF { . NOT . LIBGl) WRITE (5, 942) 

C .NOT. LIBGl => LONG INTER BLOCK GAP ERROR 
RETURN 

940 FORMAT (' END OF TAPE FOUND') 

941 FORMAT (' TAPE MARK DETECTED') 

942 FORMAT {' LONG INTER BLOCK GAP DETECTED') 
END 
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